home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
xlib.zip
/
FMODES.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-09-05
|
2KB
|
31 lines
(*****************************************************************************)
(* *)
(* Filename : FMODES.PAS *)
(* Autor : Stefan Boether / Compuserve Id : 100023,275 *)
(* FidoNet : 2:242/200 *)
(* Internet: 10023.275@CompuServe.COM *)
(* System : TURBO 6.00 / MS-DOS *)
(* Aenderung : *)
(* wann was wer *)
(*---------------------------------------------------------------------------*)
(*****************************************************************************)
(* Beschreibung: Constants for file modes under DOS *)
(*****************************************************************************)
{Header-End}
UNIT FModes;
INTERFACE
CONST fmReadOnly = 0;
fmWriteOnly = 1;
fmReadWrite = 2; (* Turbo standard-mode for binary files *)
fmDenyNone = 16; (* Andere dürfen File benutzen *)
fmDenyWrite = 32; (* Andere dürfen lesen aber nicht schreiben *)
fmDenyAll = 64; (* Andere dürfen Files nicht benutzen *)
fmDenyRead = 96; (* Andere dürfen schreiben aber nicht lesen *)
IMPLEMENTATION
END.